﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>

<%

	dim rs,sql,i,id,classid,RecordCount


	id=Request.QueryString("id")
	if id="" then id=1
	if not isnumeric(id) then id=1
	id=clng(id)
	Set Rs = Server.CreateObject("Adodb.Recordset")

	Sql = "select name,turul,id1,id2,paid,feid,money,smoney,soid,ton from qingtian_shop where id="&id
	Rs.Open Sql,conn,1,1
	if not (rs.bof and rs.eof)  then
        classid=rs("feid")
select case v
case "0" 
ttr="<anchor><prev/>返回</anchor>"
we0="<br/>"
hr="-------------<br/>"
book="<input size=""15"" name=""remark"" type=""text"" maxlength=""128"" emptyok=""true"" value="""" /><br/><anchor title=""发表评论"">发表评论<go href='fileshowing.asp?id="&id&"&amp;sid="&sidd&"' method='post'><postfield name=""remark"" value=""$(remark)"" /></go></anchor><br/>"
%>
<card title="<%=qingtian.utf8(rs("name"))%>"><p align="<%=qingtian.px%>">
<%
case "1"
hr=""
ttr="<a href=""fileli.asp?listid="&classid&"&amp;sid="&sidd&""">返回</a>"
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
book=""&dao&"<form action=""fileshowing.asp?id="&id&"&amp;sid="&sidd&""" method=""post""><input type=""text"" name=""remark"" size=""15"" value="""" /><br/><input type=""submit"" value=""发表评论"" /></form>"&we0&""
%>
<title><%=qingtian.utf8(rs("name"))%></title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%
End Select		

		%><%
		

		if sid="Null" then
		%><%=sou%><%=zi%>欢迎你<%=zi0%><a href="/login.asp?sid=<%=sidd%>&amp;url=/shop/fileve.asp?id=<%=id%>">注册/登陆</a><%=we0%><%
		else
		qingtian.info
                qingtian.addong("查看了商品[url=/shop/fileve.asp?id="&id&"&sid=[sid]]"&qingtian.utf8(rs("name"))&"[/url]")
		end if

		%><%=qingtian.qingsav("570")%><%=we%><a href="newli.asp?act=1&amp;sid=<%=sidd%>">最新</a>.<a href="newli.asp?act=2&amp;sid=<%=sidd%>">热销</a>.<a href="search.asp?sid=<%=sidd%>">搜索</a>.<%=ttr%><%=we0%><%=hr%>
<%=dao%><%=qingtian.utf8(rs("name"))%><%=we0%>
<%=we%><img src="<%=rs("turul")%>" alt="商品图片" /><br/>
<% if Request.QueryString("act")<>"1" then %>
<%=qingtian.utf8(left(rs("ton"),100))%><br/>
<a href="fileve.asp?act=1&amp;id=<%=id%>&amp;sid=<%=sidd%>">更多详细信息</a><br/>
<%else%>
<%=qingtian.utf8(rs("ton"))%><br/>
<%end if%>
品牌:<a href="paid.asp?id=<%=rs("paid")%>&amp;sid=<%=sidd%>"><%=qingtian.paiddd(rs("paid"))%></a><br/>
商品编号:<%=rs("id1")%><br/>
货号:<%=rs("id2")%><br/>
市场价:<%=rs("money")%>元<br/>
销售价:<%=rs("smoney")%>元<br/>
已售出:<%=rs("soid")%><br/>
放入:<a href="addshopp.asp?id=<%=id%>&amp;sid=<%=sidd%>">购物车</a>|<a href='/bbs/souzan.asp?name=<%=server.URLEncode(""&rs("name")&"(商品)")%>&amp;urls=/shop/fileve.asp?id=<%=id%>&amp;sid=<%=sidd%>'>收藏夹</a><br/>
<a href="pay.asp?id=<%=id%>&amp;sid=<%=sidd%>">直接订购</a>|<a href="dindian.asp?sid=<%=sidd%>">查看订单</a><%=we0%>
<%=hr%>
<%=sou%>评论该商品:<%=we0%>
<%=book%>
<%
	else
	 qingtian.err("没有该商品")
		classid=0
	end if
	Rs.close	
	Sql = "select top 3 id,content,user,uid from qingtian_shop_reply where  listid="&id&"  order by id desc"

	Rs.Open Sql,conn,1,1
	if not (rs.bof and rs.eof)  then
        RecordCount=rs.RecordCount
	For i=1 to rs.RecordCount
		dat=rs.RecordCount+1-i
dat1=dat mod 2
if dat1=0 then
%>
<%=we%><%=zi%><%=dat%>楼.<%=zi0%>[<%=qingtian.utf8(rs("user"))%>]说:<%=qingtian.ubb(rs("content"))%><%=we0%>
<%
else
%>
<%=sou%><%=zi%><%=dat%>楼.<%=zi0%>[<%=qingtian.utf8(rs("user"))%>]说:<%=qingtian.ubb(rs("content"))%><%=we0%>




<%
                End If
	Rs.MoveNext
	next
	end if
	Rs.close	
	
	%>
		<%=dao%><a href="fileshowinglist.asp?infoid=<%=id%>&amp;sid=<%=sidd%>">查看网友评论(<%=RecordCount%>条)</a><%=we0%>
	<%


	Sql = "select top 1 id,name from qingtian_shop where feid="&classid&" and id<"&id&"  order by id desc"

	Rs.Open Sql,conn,1,1
	if not (rs.bof and rs.eof)  then
			%><%=sou%>下一个<a href="fileve.asp?id=<%=rs(0)%>&amp;sid=<%=sidd%>"><%=qingtian.utf8(rs(1))%></a><%=we0%><%
	end if
	Rs.close	



	Sql = "select top 1 id,name from qingtian_shop where feid="&classid&" and id>"&id&"  order by id asc"

	Rs.Open Sql,conn,1,1
	if not (rs.bof and rs.eof)  then
			%><%=sou%>上一个<a href="fileve.asp?id=<%=rs(0)%>&amp;sid=<%=sidd%>"><%=qingtian.utf8(rs(1))%></a><%=we0%><%
	end if
	Rs.close
	set rs=nothing
%>
<%=qingtian.qingsav("571")%>	
<%=hr%><%=we%><a href="fileli.asp?listid=<%=classid%>&amp;sid=<%=sidd%>">返回商品分类</a><%=we0%>

<%

end Function
%>
